home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group95a.txt / 000048_icon-group-sender _Sun Feb 5 12:35:20 1995.msg < prev    next >
Internet Message Format  |  1995-02-09  |  2KB
  1. Received: by cheltenham.cs.arizona.edu; Sun, 5 Feb 1995 06:16:09 MST
  2. To: icon-group-l@cs.arizona.edu
  3. Date: 5 Feb 1995 12:35:20 GMT
  4. From: ruiter@ruls41.fsw.LeidenUniv.nl (Jan-Peter de Ruiter)
  5. Message-Id: <3h2gm8$bur@highway.LeidenUniv.nl>
  6. Organization: Leiden University, The Netherlands
  7. Sender: icon-group-request@cs.arizona.edu
  8. References: <3grmq1$qn7@hermes.louisville.edu>
  9. Subject: Re: emacs and icon
  10. Errors-To: icon-group-errors@cs.arizona.edu
  11.  
  12. Mark D. McDonald (mdmcdo01@terra.spd.louisville.edu) wrote:
  13. : Has anyone customized emacs to easily compile (interpret) an icon program
  14. : (that is in the current buffer)?  
  15.  
  16. Try adding the following code to your .emacs file. It puts the current
  17. filename as a default input name to the icont interpreter, and also
  18. adds a regexp so that you can jump to the line in your icon program
  19. containing your error.
  20.  
  21. I hope the (long) lines will not be cut off by your newsreader. If so,
  22. tell me and I'll resend it in a more intelligent way.
  23.  
  24. Cheers,
  25.  
  26. JP
  27.  
  28. ;; begin code
  29. (autoload 'icon-mode "icon.el") ;; assumes you have icon.el
  30. (setq icon-mode-hook
  31.       '(lambda () (progn (make-local-variable 'compile-command)
  32.              (setq compile-command
  33.                    (concat "icont " (file-name-nondirectory buffer-file-name)))
  34.              (make-local-variable 'compilation-error-regexp-alist)
  35.              (setq compilation-error-regexp-alist
  36. '(("\\(File \\)\\([^;]+\\)\\(; Line \\)\\([0-9]+\\)\\( # \\)\\(.*$\\)" 2 4))))))
  37. ;; end code
  38.